home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2002 #11 / Amiga Plus CD - 2002 - No. 11.iso / Tools / Freeware / DiskMaster / Rexx / DMDest2Source.rexx < prev    next >
Encoding:
OS/2 REXX Batch file  |  2002-10-27  |  1.3 KB  |  62 lines
  1. /* $VER: DMDest2Source.rexx 1.0 (25.3.98) by J. Tierney
  2.  
  3.   DiskMaster II Dest To Source
  4.   3/25/98  J. Tierney <jtierney@cyberlink-inc.com>
  5.  
  6.   Purpose:  Change the Dest dir, or open a new window, to either the same dir
  7.            as the Source, or to Source's parent dir.
  8.  
  9.   Usage:  Rexx DMDest2Source.rexx [<mode>]
  10.  
  11.           <mode> - 0 - Dest dir = Source dir.  Default.
  12.                    1 - Dest dir = Source's parent dir.
  13.                    2 - Open new window to Source dir.
  14.                    3 - Open new window to Source's parent dir.
  15. */
  16.  
  17. OPTIONS RESULTS
  18.  
  19. /* Dimensions for the new window. */
  20. /* Change these to suit yourself. */
  21. winx = 100  /* X      */
  22. winy = 8    /* Y      */
  23. winw = 260  /* Width  */
  24. winh = 194  /* Height */
  25.  
  26. ARG mode
  27. IF (mode = '') | (mode < 0) THEN mode = 0
  28. IF mode > 3 THEN mode = 3
  29.  
  30. /* Get source dir */
  31. 'STATUS P'
  32. src = result
  33.  
  34. /* Get parent dir */
  35. x = LASTPOS('/', src) - 1
  36. IF x = -1 THEN x = LASTPOS(':', src)
  37. prnt = LEFT(src, x)
  38.  
  39. ok = -1
  40.  
  41. SELECT
  42.   WHEN mode = 0 THEN DO
  43.     'WINDOW DEST'
  44.     'NEWDIR' src
  45.     END
  46.  
  47.   WHEN mode = 1 THEN DO
  48.     'WINDOW DEST'
  49.     'NEWDIR' prnt
  50.     END
  51.  
  52.   WHEN mode = 2 THEN DO
  53.     'OPENWINDOW' winx winy winw winh src
  54.     END
  55.  
  56.   WHEN mode = 3 THEN DO
  57.     'OPENWINDOW' winx winy winw winh prnt
  58.     END
  59. END
  60.  
  61. 'WINDOW DEST'
  62.